Nebula 1/Nebula One.iso/Graphics/Plotting/GnuTerm_1.1a/Source/term.c

C/C++ Source or Header | 1995-07-19 | 72.5 KB | 2,380 lines

#ifndef lint
static char *RCSid = "$Id: term.c,v 1.66 1995/06/16 12:35:53 drd Exp $";
#endif


/* GNUPLOT - term.c */
/*
 * Copyright (C) 1986 - 1993   Thomas Williams, Colin Kelley
 *
 * Permission to use, copy, and distribute this software and its
 * documentation for any purpose with or without fee is hereby granted,
 * provided that the above copyright notice appear in all copies and
 * that both that copyright notice and this permission notice appear
 * in supporting documentation.
 *
 * Permission to modify the software is granted, but not the right to
 * distribute the modified code.  Modifications are to be distributed
 * as patches to released version.
 *
 * This software is provided "as is" without express or implied warranty.
 *
 *
 * AUTHORS
 *
 *   Original Software:
 *     Thomas Williams,  Colin Kelley.
 *
 *   Gnuplot 2.0 additions:
 *       Russell Lang, Dave Kotz, John Campbell.
 *
 *   Gnuplot 3.0 additions:
 *       Gershon Elber and many others.
 *
 * There is a mailing list for gnuplot users. Note, however, that the
 * newsgroup
 *    comp.graphics.gnuplot
 * is identical to the mailing list (they
 * both carry the same set of messages). We prefer that you read the
 * messages through that newsgroup, to subscribing to the mailing list.
 * (If you can read that newsgroup, and are already on the mailing list,
 * please send a message [e-mail], asking to be
 * removed from the mailing list.)
 *
 * The address for mailing to list members is
 *       [e-mail]
 * and for mailing administrative requests is
 *       [e-mail]
 * The mailing list for bug reports is
 *       [e-mail]
 * The list of those interested in beta-test versions is
 *       [e-mail]
 */

#include <ctype.h>
#include <math.h>
#ifdef ONEXT
#include "epsviewe.h"
#endif /* ONEXT */
#include "driver.h" /* gets plot.h, setshow.h, bitmap.h */

#ifdef OLD_TERMINALS
#include "term.h"
#endif

#ifdef _Windows
#ifdef __MSC__
#include <malloc.h>
#else
#include <alloc.h>
#endif
#endif

#ifdef vms
/* for a quiet life */
extern sys$crembx();
extern sys$assign();
extern sys$dassgn();
extern sys$qio();
extern sys$qiow();
extern lib$signal();
extern lib$spawn();
#endif

/* for use by all drivers */
#define sign(x) ((x) >= 0 ? 1 : -1)

/* I'd rather this was ABS(x), but dont fancy going through all the terms */
#ifdef abs /* SAS/C and DECC/AXP-VMS have abs() as a macro */
#undef abs
#endif
#define abs(x) ((x) >= 0 ? (x) : -(x))


#ifndef max    /* GCC uses inline functions */
#define max(a,b) ((a) > (b) ? (a) : (b))
#endif
#ifndef min
#define min(a,b) ((a) < (b) ? (a) : (b))
#endif

TBOOLEAN term_init;            /* true if terminal has been initialized */
TBOOLEAN term_graphics=FALSE;    /* true if terminal is in graphics mode */
TBOOLEAN term_suspended=FALSE;   /* we have suspended the driver, in multiplot mode */
extern FILE *outfile;
extern char outstr[];
extern float xsize, ysize;

void do_point __P((unsigned int x, unsigned int y, int number));
void line_and_point __P((unsigned int x, unsigned int y, int number));
void do_arrow __P((unsigned int sx, unsigned int sy, unsigned int ex, unsigned int ey, int head));
int null_text_angle __P((int ang));
int null_justify_text __P((enum JUSTIFY just));
int null_scale __P((double x, double y));
int do_scale __P((double x, double y));
void options_null __P((void));
void UNKNOWN_null __P((void));

#ifdef __ZTC__
char *ztc_init();
/* #undef TGIF */
#endif

#if defined(MSDOS)||defined(ATARI)||defined(MTOS)||defined(OS2)||defined(_Windows)||defined(DOS386)
void reopen_binary();
#define REOPEN_BINARY
#endif
#ifdef vms
char *vms_init();
void vms_reset();
void term_mode_tek();
void term_mode_native();
void term_pasthru();
void term_nopasthru();
void reopen_binary();
void fflush_binary();
#define REOPEN_BINARY
#endif

/* This is needed because the unixplot library only writes to stdout. */
#ifdef UNIXPLOT
FILE save_stdout;
#endif
int unixplot=0;

#if defined(MTOS) || defined(ATARI)
int aesid = -1;
#endif

#define NICE_LINE        0
#define POINT_TYPES        6


void do_point(x,y,number)
unsigned int x,y;
int number;
{
register int htic,vtic;
register struct termentry *t = term;

     if (number < 0) {        /* do dot */
        (*t->move)(x,y);
        (*t->vector)(x,y);
        return;
    }

    number %= POINT_TYPES;
    htic = (pointsize*t->h_tic/2);    /* should be in term_tbl[] in later version */
    vtic = (pointsize*t->v_tic/2);

    switch(number) {
        case 0: /* do diamond */
                (*t->move)(x-htic,y);
                (*t->vector)(x,y-vtic);
                (*t->vector)(x+htic,y);
                (*t->vector)(x,y+vtic);
                (*t->vector)(x-htic,y);
                (*t->move)(x,y);
                (*t->vector)(x,y);
                break;
        case 1: /* do plus */
                (*t->move)(x-htic,y);
                (*t->vector)(x-htic,y);
                (*t->vector)(x+htic,y);
                (*t->move)(x,y-vtic);
                (*t->vector)(x,y-vtic);
                (*t->vector)(x,y+vtic);
                break;
        case 2: /* do box */
                (*t->move)(x-htic,y-vtic);
                (*t->vector)(x-htic,y-vtic);
                (*t->vector)(x+htic,y-vtic);
                (*t->vector)(x+htic,y+vtic);
                (*t->vector)(x-htic,y+vtic);
                (*t->vector)(x-htic,y-vtic);
                (*t->move)(x,y);
                (*t->vector)(x,y);
                break;
        case 3: /* do X */
                (*t->move)(x-htic,y-vtic);
                (*t->vector)(x-htic,y-vtic);
                (*t->vector)(x+htic,y+vtic);
                (*t->move)(x-htic,y+vtic);
                (*t->vector)(x-htic,y+vtic);
                (*t->vector)(x+htic,y-vtic);
                break;
        case 4: /* do triangle */
                (*t->move)(x,y+(4*vtic/3));
                (*t->vector)(x-(4*htic/3),y-(2*vtic/3));
                (*t->vector)(x+(4*htic/3),y-(2*vtic/3));
                (*t->vector)(x,y+(4*vtic/3));
                (*t->move)(x,y);
                (*t->vector)(x,y);
                break;
        case 5: /* do star */
                (*t->move)(x-htic,y);
                (*t->vector)(x-htic,y);
                (*t->vector)(x+htic,y);
                (*t->move)(x,y-vtic);
                (*t->vector)(x,y-vtic);
                (*t->vector)(x,y+vtic);
                (*t->move)(x-htic,y-vtic);
                (*t->vector)(x-htic,y-vtic);
                (*t->vector)(x+htic,y+vtic);
                (*t->move)(x-htic,y+vtic);
                (*t->vector)(x-htic,y+vtic);
                (*t->vector)(x+htic,y-vtic);
                break;
    }
}


/*
 * general point routine
 */
void line_and_point(x,y,number)
unsigned int x,y;
int number;
{
    /* temporary(?) kludge to allow terminals with bad linetypes
        to make nice marks */

    (*term->linetype)(NICE_LINE);
    do_point(x,y,number);
}

/*
 * general arrow routine
 *
 * I set the angle between the arrowhead and the line 15 degree.
 * The length of arrowhead varies depending on the line length
 * within the the range [0.3*(the-tic-length), 2*(the-tic-length)].
 * No head is printed if the arrow length is zero.
 *
 *            Yasu-hiro Yamazaki([e-mail])
 *            Jul 1, 1993
 */

#define COS15 (0.96593)         /* cos of 15 degree */
#define SIN15 (0.25882)         /* sin of 15 degree */

#define HEAD_LONG_LIMIT  (2.0)  /* long  limit of arrowhead length */
#define HEAD_SHORT_LIMIT (0.3)  /* short limit of arrowhead length */
                                /* their units are the "tic" length */

#define HEAD_COEFF  (0.3)       /* default value of head/line length ratio */

void do_arrow(sx, sy, ex, ey, head)
    unsigned int sx,sy;            /* start point */
    unsigned int ex, ey;            /* end point (point of arrowhead) */
    TBOOLEAN head;
{
    register struct termentry *t = term;
    float len_tic = ((double) (t->h_tic + t->v_tic) )/2.0;
                                       /* average of tic sizes */
    double dx = (double)sx - (double)ex;
    double dy = (double)sy - (double)ey;     /* (dx,dy) : vector from end to start */
    double len_arrow = sqrt( dx*dx + dy*dy );

    /* draw the line for the arrow. That's easy. */
    (*t->move)(sx, sy);
    (*t->vector)(ex, ey);

    if (head && len_arrow != 0.0) { /* no head for arrows whih length=0 */
      /* now calc the head_coeff */
      double  coeff_shortest = len_tic*HEAD_SHORT_LIMIT/len_arrow;
      double  coeff_longest  = len_tic*HEAD_LONG_LIMIT/len_arrow;
      double  head_coeff = max( coeff_shortest,
                                min( HEAD_COEFF, coeff_longest) );
    /* now draw the arrow head. */
    /* we put the arrowhead marks at 15 degrees to line */
      int x,y;            /* one endpoint */

      x = (int)( ex + ( COS15*dx - SIN15*dy) * head_coeff );
      y = (int)( ey + ( SIN15*dx + COS15*dy) * head_coeff );
      (*t->move)(x,y);
      (*t->vector)(ex,ey);

      x = (int)( ex + ( COS15*dx + SIN15*dy) * head_coeff );
      y = (int)( ey + (-SIN15*dx + COS15*dy) * head_coeff );
     (*t->vector)(x,y);
    }
}

/* oiginal routine */
#define ROOT2 (1.41421)        /* sqrt of 2 */

static void org_do_arrow(sx, sy, ex, ey, head)
    int sx,sy;            /* start point */
    int ex, ey;            /* end point (point of arrowhead) */
    TBOOLEAN head;
{
    register struct termentry *t = term;
    int len = (t->h_tic + t->v_tic)/2; /* arrowhead size = avg of tic sizes */

    /* draw the line for the arrow. That's easy. */
    (*t->move)(sx, sy);
    (*t->vector)(ex, ey);

    if (head) {
    /* now draw the arrow head. */
    /* we put the arrowhead marks at 45 degrees to line */
       if (sx == ex) {
       /* vertical line, special case */
          int delta = ((float)len / ROOT2 + 0.5);
          if (sy < ey)
              delta = -delta;    /* up arrow goes the other way */
          (*t->move)(ex - delta, ey + delta);
          (*t->vector)(ex,ey);
          (*t->vector)(ex + delta, ey + delta);
       } else {
          int dx = sx - ex;
          int dy = sy - ey;
          double coeff = len / sqrt(2.0*((double)dx*(double)dx
                   + (double)dy*(double)dy));
          int x,y;            /* one endpoint */

          x = (int)( ex + (dx + dy) * coeff );
          y = (int)( ey + (dy - dx) * coeff );
          (*t->move)(x,y);
          (*t->vector)(ex,ey);

          x = (int)( ex + (dx - dy) * coeff );
          y = (int)( ey + (dy + dx) * coeff );
          (*t->vector)(x,y);
       }
    }
}

#if !defined(OLD_TERMINALS)

#define TERM_PROTO
#define TERM_BODY
#define TERM_PUBLIC static

#include "term.h"

#undef TERM_PROTO
#undef TERM_BODY
#undef TERM_PUBLIC

#else /* OLD_TERMINALS */

/* temporary defines for new terminal file format */

#define TERM_PROTO
#define TERM_BODY
#define TERM_PUBLIC static

#ifdef DUMB                    /* paper or glass dumb terminal */
#include "term/dumb.trm"
#endif


#ifndef _Windows
# ifdef PC            /* all PC types except MS WINDOWS*/
#  include "term/pc.trm"
# endif
#else
#  include "term/win.trm"
#endif

#ifdef __ZTC__
#include "term/fg.trm"
#endif

#ifdef DJSVGA
#include "term/djsvga.trm"    /* DJGPP SVGA */
#endif

#ifdef EMXVGA
#include "term/emxvga.trm"    /* EMX VGA */
#endif

#ifdef OS2PM                    /* os/2 presentation manager */
#include "term/pm.trm"
#endif

#if defined(ATARI) || defined(MTOS)    /* ATARI-ST */
#include "term/atarivdi.trm"
#ifdef MTOS
#include "term/multitos.trm"
#endif
#include "term/atariaes.trm"
#endif

/*
   all TEK types (TEK,BITGRAPH,KERMIT,VTTEK,SELANAR) are ifdef'd in tek.trm,
   but most require various TEK routines.  Hence TEK must be defined for
   the others to compile.
*/
#ifdef BITGRAPH
# ifndef TEK
#  define TEK
# endif
#endif

#ifdef SELENAR
# ifndef TEK
#  define TEK
# endif
#endif

#ifdef KERMIT
# ifndef TEK
#  define TEK
# endif
#endif

#ifdef LN03P
# ifndef TEK
#  define TEK
# endif
#endif

#ifdef VTTEK
# ifndef TEK
#  define TEK
# endif
#endif

#ifdef T410X        /* Tektronix 4106, 4107, 4109 and 420x terminals */
#include "term/t410x.trm"
#endif

#ifdef TEK            /* all TEK types, TEK, BBN, SELANAR, KERMIT, VTTEK */
#include "term/tek.trm"
#endif

#ifdef OKIDATA
#define EPSONP
#endif

#ifdef EPSONP    /* bit map types, EPSON, NEC, PROPRINTER, STAR Color */
#include "term/epson.trm"
#endif

#ifdef HP500C  /* HP 500 deskjet Colour */
#include "term/hp500c.trm"
#endif

#ifdef HPLJII        /* HP LaserJet II */
#include "term/hpljii.trm"
#endif

#ifdef PCL /* HP LaserJet III in HPGL mode */
#  ifndef HPGL
#    define HPGL
#  endif
#endif

#ifdef HPPJ        /* HP PaintJet */
#include "term/hppj.trm"
#endif

#ifdef FIG            /* Fig 3.1 Interactive graphics program */
#include "term/fig.trm"
#include "term/bigfig.trm"
#endif

#ifdef GPR              /* Apollo Graphics Primitive Resource (fixed-size window) */
#include "term/gpr.trm"
#endif /* GPR */

#ifdef APOLLO           /* Apollo Graphics Primitive Resource (resizable window) */
#include "term/apollo.trm"
#endif /* APOLLO */

#ifdef IMAGEN        /* IMAGEN printer */
#include "term/imagen.trm"
#endif

#ifdef MIF            /* Framemaker MIF  driver */
#include "term/mif.trm"
#endif

#ifdef MF            /* METAFONT driver */
#include "term/metafont.trm"
#endif

#ifdef TEXDRAW
#include "term/texdraw.trm"
#endif

#ifdef EEPIC        /* EEPIC (LATEX) type */
#include "term/eepic.trm"
# ifndef LATEX
#  define LATEX
# endif
#endif

#ifdef EMTEX        /* EMTEX (LATEX for PC) type */
# ifndef LATEX
#  define LATEX
# endif
#endif

#ifdef LATEX        /* LATEX type */
#include "term/latex.trm"
#endif

#ifdef GPIC        /* GPIC (groff) type */
#include "term/gpic.trm"
#endif

#ifdef PBM        /* PBMPLUS portable bitmap */
#include "term/pbm.trm"
#endif

#ifdef POSTSCRIPT    /* POSTSCRIPT type */
#include "term/post.trm"
/*#include "term/enhpost.trm"*/
#endif

#ifdef GRASS              /* GRASS (geographic info system) monitor */
#include "term/grass.trm"
#endif /* GRASS */

#ifdef PRESCRIBE    /* PRESCRIBE type */
#include "term/kyo.trm"
#endif

/* note: this must come after term/post.trm */
#ifdef PSLATEX        /* LaTeX with embedded PostScript */
#include "term/pslatex.trm"
#endif

/* note: this must come after term/pslatex.trm */
#ifdef PSTEX        /* Generic TeX with embedded PostScript */
#include "term/pstex.trm"
#endif

#ifdef PSTRICKS
#include "term/pstricks.trm"
#endif

#ifdef TPIC        /* TPIC (LATEX) type */
#include "term/tpic.trm"
# ifndef LATEX
#  define LATEX
# endif
#endif

#ifdef UNIXPC     /* unix-PC  ATT 7300 or 3b1 machine */
#include "term/unixpc.trm"
#endif /* UNIXPC */

#ifdef AED
#include "term/aed.trm"
#endif /* AED */

#ifdef AIFM
#include "term/ai.trm"
#endif /* AIFM */

#ifdef COREL
#include "term/corel.trm"
#endif /* COREL */

#ifdef CGI
#include "term/cgi.trm"
#endif /* CGI */

#ifdef DEBUG
#include "term/debug.trm"
#endif /* DEBUG */

#ifdef EXCL
#include "term/excl.trm"
#endif /* EXCL */

#ifdef HP2648
/* also works for HP2647 */
#include "term/hp2648.trm"
#endif /* HP2648 */

#ifdef HP26
#include "term/hp26.trm"
#endif /* HP26 */

#ifdef HP75
#ifndef HPGL
#define HPGL
#endif
#endif

#ifdef HP7550
#ifndef HPGL
#define HPGL
#endif
#endif

/* HPGL - includes HP75, HP7550 and HPLJIII in HPGL mode */
#ifdef HPGL
#include "term/hpgl.trm"
#endif /* HPGL */

/* Roland DXY800A plotter driver by Martin Yii, [e-mail]
    and Russell Lang, [e-mail] */
#ifdef DXY800A
#include "term/dxy.trm"
#endif /* DXY800A */

#ifdef GIF
#include "term/gdgif.trm"
#endif /* GIF */


#ifdef IRIS4D
#include "term/iris4d.trm"
#endif /* IRIS4D */

#ifdef ONEXT
#include "term/onext.trm"
#endif /* ONEXT */

#ifdef NEXT
#include "term/next.trm"
#endif /* NEXT */

#ifdef QMS
#include "term/qms.trm"
#endif /* QMS */

#ifdef REGIS
#include "term/regis.trm"
#endif /* REGIS */

#ifdef RGIP
#include "term/rgip.trm"
#endif /* RGIP UNIPLEX */

#ifdef MGR
#include "term/mgr.trm"
#endif /* MGR */

#ifdef SUN
#include "term/sun.trm"
#endif /* SUN */

#ifdef VWS
#include "term/vws.trm"
#endif /* VWS */

#ifdef V384
#include "term/v384.trm"
#endif /* V384 */

#ifdef TGIF
#include "term/tgif.trm"
#endif /* TGIF */

#ifdef UNIXPLOT
#ifdef GNUGRAPH
#include "term/gnugraph.trm"
#else
#include "term/unixplot.trm"
#endif /* GNUGRAPH */
#endif /* UNIXPLOT */

#ifdef X11
#include "term/x11.trm"
#include "term/xlib.trm"
#endif /* X11 */

#ifdef LINUX
#include "term/linux.trm"
#endif

#ifdef DXF
#include "term/dxf.trm"
#endif /* DXF */

#ifdef AMIGASCREEN
#include "term/amiga.trm"
#endif /* AMIGASCREEN */

#undef TERM_PROTO
#undef TERM_BODY

#endif /* OLD_TERMINALS */


/* Dummy functions for unavailable features */
/* return success if they asked for default - this simplifies code
 * where param is passed as a param. Client can first pass it here,
 * and only if it fails do they have to see what was trying to be done
 */

/* change angle of text.  0 is horizontal left to right.
* 1 is vertical bottom to top (90 deg rotate)
*/
int null_text_angle(ang)
int ang;
{
return (ang==0);
}

/* change justification of text.
 * modes are LEFT (flush left), CENTRE (centred), RIGHT (flush right)
 */
int null_justify_text(just)
enum JUSTIFY just;
{
return (just==LEFT);
}


/* Change scale of plot.
 * Parameters are x,y scaling factors for this plot.
 * Some terminals (eg latex) need to do scaling themselves.
 */
int null_scale(x,y)
double x;
double y;
{
return FALSE ;    /* can't be done */
}

int do_scale(x,y)
double x;
double y;
{
return TRUE ;    /* can be done */
}

void options_null()
{
    term_options[0] = '\0';    /* we have no options */
}

void UNKNOWN_null()
{
}

int set_font_null(s)
char *s;
{
  return FALSE;
}

void null_set_pointsize(s)
double s;
{
}

/* cast to get rid of useless warnings about UNKNOWN_null */
typedef void (*void_fp)();


/* temporary macro to allow use of new terminal drivers */
#define TERM_TABLE
#define TERM_TABLE_START(x) ,{
#define TERM_TABLE_END(x)   }


/*
 * term_tbl[] contains an entry for each terminal.  "unknown" must be the
 *   first, since term is initialized to 0.
 */
struct termentry term_tbl[] = {
    {"unknown", "Unknown terminal type - not a plotting device",
      100, 100, 1, 1,
      1, 1, options_null, UNKNOWN_null, UNKNOWN_null,
      UNKNOWN_null, null_scale, UNKNOWN_null, (void_fp)UNKNOWN_null, (void_fp)UNKNOWN_null,
      (void_fp)UNKNOWN_null, (void_fp)UNKNOWN_null, null_text_angle,
      null_justify_text, (void_fp)UNKNOWN_null, (void_fp)UNKNOWN_null, set_font_null}

    ,{"table", "Dump ASCII table of X Y [Z] values to output",
      100, 100, 1, 1,
      1, 1, options_null, UNKNOWN_null, UNKNOWN_null,
      UNKNOWN_null, null_scale, UNKNOWN_null, (void_fp)UNKNOWN_null, (void_fp)UNKNOWN_null,
      (void_fp)UNKNOWN_null, (void_fp)UNKNOWN_null, null_text_angle,
      null_justify_text, (void_fp)UNKNOWN_null, (void_fp)UNKNOWN_null, set_font_null}


#if !defined(OLD_TERMINALS)

#include "term.h"

#else /* OLD_TERMINALS */

#ifdef AMIGASCREEN
    ,{"amiga", "Amiga Custom Screen",
       AMIGA_XMAX, AMIGA_YMAX, AMIGA_VCHAR, AMIGA_HCHAR,
       AMIGA_VTIC, AMIGA_HTIC, options_null, AMIGA_init, AMIGA_reset,
       AMIGA_text, null_scale, AMIGA_graphics, AMIGA_move, AMIGA_vector,
       AMIGA_linetype, AMIGA_put_text, null_text_angle,
       AMIGA_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef MTOS
    ,{"mtos", "Atari MiNT/MULTITOS/Magic Terminal",
       MTOS_XMAX, MTOS_YMAX, MTOS_VCHAR, MTOS_HCHAR,
       MTOS_VTIC, MTOS_HTIC, MTOS_options, MTOS_init, MTOS_reset,
       MTOS_text, null_scale, MTOS_graphics, MTOS_move, MTOS_vector,
       MTOS_linetype, MTOS_put_text, MTOS_text_angle,
       MTOS_justify_text, MTOS_point, do_arrow, set_font_null}
#endif

#if defined(ATARI) || defined(MTOS)
        ,{"atari", "Atari AES-Terminal",
       ATARI_XMAX, ATARI_YMAX, ATARI_VCHAR, ATARI_HCHAR,
       ATARI_VTIC, ATARI_HTIC, ATARI_options, ATARI_init, ATARI_reset,
       ATARI_text, null_scale, ATARI_graphics, ATARI_move, ATARI_vector,
       ATARI_linetype, ATARI_put_text, ATARI_text_angle,
       ATARI_justify_text, ATARI_point, do_arrow, set_font_null}
    ,{"vdi", "Atari VDI-Terminal",
       VDI_XMAX, VDI_YMAX, VDI_VCHAR, VDI_HCHAR,
       VDI_VTIC, VDI_HTIC, VDI_options, VDI_init, VDI_reset,
       VDI_text, null_scale, VDI_graphics, VDI_move, VDI_vector,
       VDI_linetype, VDI_put_text, VDI_text_angle,
       VDI_justify_text, VDI_point, do_arrow, set_font_null}
#endif

#ifdef DUMB
    ,{"dumb", "printer or glass dumb terminal",
         DUMB_XMAX, DUMB_YMAX, 1, 1,
         1, 1, DUMB_options, DUMB_init, DUMB_reset,
         DUMB_text, null_scale, DUMB_graphics, DUMB_move, DUMB_vector,
         DUMB_linetype, DUMB_put_text, null_text_angle,
         null_justify_text, DUMB_point, DUMB_arrow, set_font_null}
#endif

#ifdef PC
#ifndef _Windows
    ,{"pc", "IBM PC/Clone running DOS",
       PC_XMAX, PC_YMAX, PC_VCHAR, PC_HCHAR,
       PC_VTIC, PC_HTIC, options_null, PC_init, PC_reset,
       PC_text, null_scale, PC_graphics, PC_move, PC_vector,
       PC_linetype, PC_put_text, PC_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}

#if 0 /* now all PC (DOS) terminals are combined -- DJL */

# ifdef __TURBOC__
#ifdef ATT6300
    ,{"att", "IBM PC/Clone with AT&T 6300 graphics board",
       ATT_XMAX, ATT_YMAX, ATT_VCHAR, ATT_HCHAR,
       ATT_VTIC, ATT_HTIC, options_null, ATT_init, ATT_reset,
       ATT_text, null_scale, ATT_graphics, ATT_move, ATT_vector,
       ATT_linetype, ATT_put_text, ATT_text_angle,
       ATT_justify_text, line_and_point, do_arrow, set_font_null}
#endif

    ,{"egalib", "IBM PC/Clone with EGA graphics board",
       EGALIB_XMAX, EGALIB_YMAX, EGALIB_VCHAR, EGALIB_HCHAR,
       EGALIB_VTIC, EGALIB_HTIC, options_null, EGALIB_init, EGALIB_reset,
       EGALIB_text, null_scale, EGALIB_graphics, EGALIB_move, EGALIB_vector,
       EGALIB_linetype, EGALIB_put_text, EGALIB_text_angle,
       EGALIB_justify_text, do_point, do_arrow, set_font_null}

    ,{"hercules", "IBM PC/Clone with Hercules graphics board",
       HERC_XMAX, HERC_YMAX, HERC_VCHAR, HERC_HCHAR,
       HERC_VTIC, HERC_HTIC, options_null, HERC_init, HERC_reset,
       HERC_text, null_scale, HERC_graphics, HERC_move, HERC_vector,
       HERC_linetype, HERC_put_text, MCGA_text_angle,
       HERC_justify_text, line_and_point, do_arrow, set_font_null}

    ,{"mcga", "IBM PC/Clone with MCGA graphics board",
       MCGA_XMAX, MCGA_YMAX, MCGA_VCHAR, MCGA_HCHAR,
       MCGA_VTIC, MCGA_HTIC, options_null, MCGA_init, MCGA_reset,
       MCGA_text, null_scale, MCGA_graphics, MCGA_move, MCGA_vector,
       MCGA_linetype, MCGA_put_text, MCGA_text_angle,
       MCGA_justify_text, line_and_point, do_arrow, set_font_null}

    ,{"svga", "IBM PC/Clone with Super VGA graphics board",
       SVGA_XMAX, SVGA_YMAX, SVGA_VCHAR, SVGA_HCHAR,
       SVGA_VTIC, SVGA_HTIC, options_null, SVGA_init, SVGA_reset,
       SVGA_text, null_scale, SVGA_graphics, SVGA_move, SVGA_vector,
       SVGA_linetype, SVGA_put_text, SVGA_text_angle,
       SVGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"vgalib", "IBM PC/Clone with VGA graphics board",
       VGA_XMAX, VGA_YMAX, VGA_VCHAR, VGA_HCHAR,
       VGA_VTIC, VGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, VGA_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"vgamono", "IBM PC/Clone with VGA Monochrome graphics board",
       VGA_XMAX, VGA_YMAX, VGA_VCHAR, VGA_HCHAR,
       VGA_VTIC, VGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, VGA_graphics, VGA_move, VGA_vector,
       VGAMONO_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, line_and_point, do_arrow, set_font_null}
#else                    /* TURBO */

#ifdef ATT6300
    ,{"att", "AT&T PC/6300 graphics",
       ATT_XMAX, ATT_YMAX, ATT_VCHAR, ATT_HCHAR,
       ATT_VTIC, ATT_HTIC, options_null, ATT_init, ATT_reset,
       ATT_text, null_scale, ATT_graphics, ATT_move, ATT_vector,
       ATT_linetype, ATT_put_text, ATT_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

    ,{"cga", "IBM PC/Clone with CGA graphics board",
       CGA_XMAX, CGA_YMAX, CGA_VCHAR, CGA_HCHAR,
       CGA_VTIC, CGA_HTIC, options_null, CGA_init, CGA_reset,
       CGA_text, null_scale, CGA_graphics, CGA_move, CGA_vector,
       CGA_linetype, CGA_put_text, CGA_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}

#ifdef CORONA
    ,{"corona325", "Corona graphics ???",
       COR_XMAX, COR_YMAX, COR_VCHAR, COR_HCHAR,
       COR_VTIC, COR_HTIC, options_null, COR_init, COR_reset,
       COR_text, null_scale, COR_graphics, COR_move, COR_vector,
       COR_linetype, COR_put_text, COR_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif                    /* CORONA */

    ,{"egabios", "IBM PC/Clone with EGA graphics board (BIOS)",
       EGA_XMAX, EGA_YMAX, EGA_VCHAR, EGA_HCHAR,
       EGA_VTIC, EGA_HTIC, options_null, EGA_init, EGA_reset,
       EGA_text, null_scale, EGA_graphics, EGA_move, EGA_vector,
       EGA_linetype, EGA_put_text, EGA_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}

#ifdef EGALIB
    ,{"egalib", "IBM PC/Clone with EGA graphics board (LIB)",
       EGALIB_XMAX, EGALIB_YMAX, EGALIB_VCHAR, EGALIB_HCHAR,
       EGALIB_VTIC, EGALIB_HTIC, options_null, EGALIB_init, EGALIB_reset,
       EGALIB_text, null_scale, EGALIB_graphics, EGALIB_move, EGALIB_vector,
       EGALIB_linetype, EGALIB_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef HERCULES
    ,{"hercules", "IBM PC/Clone with Hercules graphics board",
       HERC_XMAX, HERC_YMAX, HERC_VCHAR, HERC_HCHAR,
       HERC_VTIC, HERC_HTIC, options_null, HERC_init, HERC_reset,
       HERC_text, null_scale, HERC_graphics, HERC_move, HERC_vector,
       HERC_linetype, HERC_put_text, HERC_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif                    /* HERCULES */

    ,{"vgabios", "IBM PC/Clone with VGA graphics board (BIOS)",
       VGA_XMAX, VGA_YMAX, VGA_VCHAR, VGA_HCHAR,
       VGA_VTIC, VGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, VGA_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}

#endif                    /* TURBO */

#endif               /* 0 */

#endif                    /* _Windows */
#endif                    /* PC */

#ifdef __ZTC__         /* zortech C flashgraphics for 386 */
    ,{"hercules", "IBM PC/Clone with Hercules graphics board",
       HERC_XMAX, HERC_YMAX, HERC_VCHAR, HERC_HCHAR,
       HERC_VTIC, HERC_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, HERC_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"egamono", "IBM PC/Clone with monochrome EGA graphics board",
       EGA_XMAX, EGA_YMAX, EGA_VCHAR, EGA_HCHAR,
       EGA_VTIC, EGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, EGAMONO_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"egalib", "IBM PC/Clone with color EGA graphics board",
       EGA_XMAX, EGA_YMAX, EGA_VCHAR, EGA_HCHAR,
       EGA_VTIC, EGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, EGA_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"vgalib", "IBM PC/Clone with VGA graphics board",
       VGA_XMAX, VGA_YMAX, VGA_VCHAR, VGA_HCHAR,
       VGA_VTIC, VGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, VGA_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"vgamono", "IBM PC/Clone with monochrome VGA graphics board",
       VGA_XMAX, VGA_YMAX, VGA_VCHAR, VGA_HCHAR,
       VGA_VTIC, VGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, VGAMONO_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"svgalib", "IBM PC/Clone with VESA Super VGA graphics board",
       SVGA_XMAX, SVGA_YMAX, SVGA_VCHAR, SVGA_HCHAR,
       SVGA_VTIC, SVGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, SVGA_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}

    ,{"ssvgalib", "IBM PC/Clone with VESA 256 color 1024 by 768 super VGA",
       SSVGA_XMAX, SSVGA_YMAX, SSVGA_VCHAR, SSVGA_HCHAR,
       SSVGA_VTIC, SSVGA_HTIC, options_null, VGA_init, VGA_reset,
       VGA_text, null_scale, SSVGA_graphics, VGA_move, VGA_vector,
       VGA_linetype, VGA_put_text, VGA_text_angle,
       VGA_justify_text, do_point, do_arrow, set_font_null}
#endif    /* __ZTC__ */

#ifdef AED
    ,{"aed512", "AED 512 Terminal",
       AED5_XMAX, AED_YMAX, AED_VCHAR, AED_HCHAR,
       AED_VTIC, AED_HTIC, options_null, AED_init, AED_reset,
       AED_text, null_scale, AED_graphics, AED_move, AED_vector,
       AED_linetype, AED_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
    ,{"aed767", "AED 767 Terminal",
       AED_XMAX, AED_YMAX, AED_VCHAR, AED_HCHAR,
       AED_VTIC, AED_HTIC, options_null, AED_init, AED_reset,
       AED_text, null_scale, AED_graphics, AED_move, AED_vector,
       AED_linetype, AED_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef AIFM
    ,{"aifm", "Adobe Illustrator 3.0 Format",
       AI_XMAX, AI_YMAX, AI_VCHAR, AI_HCHAR,
       AI_VTIC, AI_HTIC, AI_options, AI_init, AI_reset,
       AI_text, null_scale, AI_graphics, AI_move, AI_vector,
       AI_linetype, AI_put_text, AI_text_angle,
       AI_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef APOLLO
       ,{"apollo", "Apollo Graphics Primitive Resource, rescaling of subsequent plots after window resizing",
       0, 0, 0, 0, /* APOLLO_XMAX, APOLLO_YMAX, APOLLO_VCHAR, APOLLO_HCHAR, are filled in at run-time */
       APOLLO_VTIC, APOLLO_HTIC, options_null, APOLLO_init, APOLLO_reset,
       APOLLO_text, null_scale, APOLLO_graphics, APOLLO_move, APOLLO_vector,
       APOLLO_linetype, APOLLO_put_text, APOLLO_text_angle,
       APOLLO_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef GPR
       ,{"gpr", "Apollo Graphics Primitive Resource, fixed-size window",
       GPR_XMAX, GPR_YMAX, GPR_VCHAR, GPR_HCHAR,
       GPR_VTIC, GPR_HTIC, options_null, GPR_init, GPR_reset,
       GPR_text, null_scale, GPR_graphics, GPR_move, GPR_vector,
       GPR_linetype, GPR_put_text, GPR_text_angle,
       GPR_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef BITGRAPH
    ,{"bitgraph", "BBN Bitgraph Terminal",
       BG_XMAX,BG_YMAX,BG_VCHAR, BG_HCHAR,
       BG_VTIC, BG_HTIC, options_null, BG_init, BG_reset,
       BG_text, null_scale, BG_graphics, BG_move, BG_vector,
       BG_linetype, BG_put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef COREL
    ,{"corel","EPS format for CorelDRAW",
     CORELD_XMAX, CORELD_YMAX, CORELD_VCHAR, CORELD_HCHAR,
     CORELD_VTIC, CORELD_HTIC, COREL_options, COREL_init, COREL_reset,
     COREL_text, null_scale, COREL_graphics, COREL_move, COREL_vector,
     COREL_linetype, COREL_put_text, COREL_text_angle,
     COREL_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef CGI
    ,{"cgi", "SCO CGI drivers (requires CGIDISP or CGIPRNT env variable)",
       CGI_XMAX, CGI_YMAX, 0, 0,
       CGI_VTIC, 0, options_null, CGI_init, CGI_reset,
       CGI_text, null_scale, CGI_graphics, CGI_move, CGI_vector,
       CGI_linetype, CGI_put_text, CGI_text_angle,
       CGI_justify_text, CGI_point, do_arrow, set_font_null}

    ,{"hcgi", "SCO CGI drivers (hardcopy, requires CGIPRNT env variable)",
       CGI_XMAX, CGI_YMAX, 0, 0,
       CGI_VTIC, 0, options_null, HCGI_init, CGI_reset,
       CGI_text, null_scale, CGI_graphics, CGI_move, CGI_vector,
       CGI_linetype, CGI_put_text, CGI_text_angle,
       CGI_justify_text, CGI_point, do_arrow, set_font_null}
#endif

#ifdef DEBUG
    ,{"debug", "debugging driver",
       DEBUG_XMAX, DEBUG_YMAX, DEBUG_VCHAR, DEBUG_HCHAR,
       DEBUG_VTIC, DEBUG_HTIC, options_null, DEBUG_init, DEBUG_reset,
       DEBUG_text, null_scale, DEBUG_graphics, DEBUG_move, DEBUG_vector,
       DEBUG_linetype, DEBUG_put_text, null_text_angle,
       DEBUG_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef DJSVGA
    ,{"svga", "IBM PC/Clone with Super VGA graphics board",
       DJSVGA_XMAX, DJSVGA_YMAX, DJSVGA_VCHAR, DJSVGA_HCHAR,
       DJSVGA_VTIC, DJSVGA_HTIC, options_null, DJSVGA_init, DJSVGA_reset,
       DJSVGA_text, null_scale, DJSVGA_graphics, DJSVGA_move, DJSVGA_vector,
       DJSVGA_linetype, DJSVGA_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef DXF
    ,{"dxf", "dxf-file for AutoCad (default size 120x80)",
       DXF_XMAX,DXF_YMAX,DXF_VCHAR, DXF_HCHAR,
       DXF_VTIC, DXF_HTIC, options_null,DXF_init, DXF_reset,
       DXF_text, null_scale, DXF_graphics, DXF_move, DXF_vector,
       DXF_linetype, DXF_put_text, DXF_text_angle,
       DXF_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef DXY800A
    ,{"dxy800a", "Roland DXY800A plotter",
       DXY_XMAX, DXY_YMAX, DXY_VCHAR, DXY_HCHAR,
       DXY_VTIC, DXY_HTIC, options_null, DXY_init, DXY_reset,
       DXY_text, null_scale, DXY_graphics, DXY_move, DXY_vector,
       DXY_linetype, DXY_put_text, DXY_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef EEPIC
    ,{"eepic", "EEPIC -- extended LaTeX picture environment",
       EEPIC_XMAX, EEPIC_YMAX, EEPIC_VCHAR, EEPIC_HCHAR,
       EEPIC_VTIC, EEPIC_HTIC, options_null, EEPIC_init, EEPIC_reset,
       EEPIC_text, null_scale, EEPIC_graphics, EEPIC_move, EEPIC_vector,
       EEPIC_linetype, EEPIC_put_text, EEPIC_text_angle,
       EEPIC_justify_text, EEPIC_point, EEPIC_arrow, set_font_null}
#endif

#ifdef EMTEX
    ,{"emtex", "LaTeX picture environment with emTeX specials",
       LATEX_XMAX, LATEX_YMAX, LATEX_VCHAR, LATEX_HCHAR,
       LATEX_VTIC, LATEX_HTIC, LATEX_options, EMTEX_init, EMTEX_reset,
       EMTEX_text, null_scale, LATEX_graphics, LATEX_move, LATEX_vector,
       LATEX_linetype, LATEX_put_text, LATEX_text_angle,
       LATEX_justify_text, LATEX_point, LATEX_arrow, set_font_null}
#endif

#ifdef EPS180
    ,{"epson_180dpi", "Epson LQ-style 180-dot per inch (24 pin) printers",
       EPS180XMAX, EPS180YMAX, EPSON180VCHAR, EPSON180HCHAR,
       EPSON180VTIC, EPSON180HTIC, options_null, EPSONinit, EPSONreset,
       EPS180text, null_scale, EPS180graphics, EPSONmove, EPSONvector,
       EPSONlinetype, EPSONput_text, EPSON_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef EPS60
    ,{"epson_60dpi", "Epson-style 60-dot per inch printers",
       EPS60XMAX, EPS60YMAX, EPSONVCHAR, EPSONHCHAR,
       EPSONVTIC, EPSONHTIC, options_null, EPSONinit, EPSONreset,
       EPS60text, null_scale, EPS60graphics, EPSONmove, EPSONvector,
       EPSONlinetype, EPSONput_text, EPSON_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef EPSONP
    ,{"epson_lx800", "Epson LX-800, Star NL-10, NX-1000, PROPRINTER ...",
       EPSONXMAX, EPSONYMAX, EPSONVCHAR, EPSONHCHAR,
       EPSONVTIC, EPSONHTIC, options_null, EPSONinit, EPSONreset,
       EPSONtext, null_scale, EPSONgraphics, EPSONmove, EPSONvector,
       EPSONlinetype, EPSONput_text, EPSON_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef EXCL
    ,{"excl", "Talaris EXCL Laser printer (also Talaris 1590 and others)",
       EXCL_XMAX,EXCL_YMAX, EXCL_VCHAR, EXCL_HCHAR,
       EXCL_VTIC, EXCL_HTIC, options_null, EXCL_init,EXCL_reset,
       EXCL_text, null_scale, EXCL_graphics, EXCL_move, EXCL_vector,
       EXCL_linetype,EXCL_put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif


#ifdef FIG
#include "fig.trm"
#endif

#ifdef GPIC
    ,{"gpic", "GPIC -- Produce graphs in groff using the gpic preprocessor",
       GPIC_XMAX, GPIC_YMAX, GPIC_VCHAR, GPIC_HCHAR,
       GPIC_VTIC, GPIC_HTIC, GPIC_options, GPIC_init, GPIC_reset,
       GPIC_text, GPIC_scale, GPIC_graphics, GPIC_move, GPIC_vector,
       GPIC_linetype, GPIC_put_text, GPIC_text_angle,
       GPIC_justify_text, line_and_point, GPIC_arrow, set_font_null}
#endif

#ifdef HP26
    ,{"hp2623A", "HP2623A and maybe others",
       HP26_XMAX, HP26_YMAX, HP26_VCHAR, HP26_HCHAR,
       HP26_VTIC, HP26_HTIC, options_null, HP26_init, HP26_reset,
       HP26_text, null_scale, HP26_graphics, HP26_move, HP26_vector,
       HP26_linetype, HP26_put_text, HP26_text_angle,
       null_justify_text, HP26_line_and_point, do_arrow, set_font_null}
#endif

#ifdef HP2648
    ,{"hp2648", "HP2648 and HP2647",
       HP2648XMAX, HP2648YMAX, HP2648VCHAR, HP2648HCHAR,
       HP2648VTIC, HP2648HTIC, options_null, HP2648init, HP2648reset,
       HP2648text, null_scale, HP2648graphics, HP2648move, HP2648vector,
       HP2648linetype, HP2648put_text, HP2648_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef HP75
    ,{"hp7580B", "HP7580, and probably other HPs (4 pens)",
       HPGL_XMAX, HPGL_YMAX, HPGL_VCHAR, HPGL_HCHAR,
       HPGL_VTIC, HPGL_HTIC, options_null, HPGL_init, HPGL_reset,
       HPGL_text, null_scale, HPGL_graphics, HPGL_move, HPGL_vector,
       HP75_linetype, HPGL_put_text, HPGL_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef HP7550
    ,{"hp7550", "HP7550, and probably newer HP plotter (8 pens)",
       HPGL_XMAX, HPGL_YMAX, HPGL_VCHAR, HPGL_HCHAR,
       HPGL_VTIC, HPGL_HTIC, options_null, HPGL_init, HPGL_reset,
       HP7550_text, null_scale, HPGL_graphics, HPGL_move, HPGL_vector,
       HP7550_linetype, HPGL_put_text, HPGL_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef HP500C
      ,{"hp500c", "HP DeskJet 500c, [75 100 150 300] [rle tiff]",
       HP500C_75PPI_XMAX, HP500C_75PPI_YMAX, HP500C_75PPI_VCHAR,
       HP500C_75PPI_HCHAR, HP500C_75PPI_VTIC, HP500C_75PPI_HTIC, HP500Coptions,
       HP500Cinit, HP500Creset, HP500Ctext, null_scale,
       HP500Cgraphics, HP500Cmove, HP500Cvector, HP500Clinetype,
       HP500Cput_text, HP500Ctext_angle, null_justify_text, do_point,
       do_arrow, set_font_null}
#endif

#ifdef HPGL
    ,{"hpgl", "HP7475 and (hopefully) lots of others (6 pens)",
       HPGL_XMAX, HPGL_YMAX, HPGL_VCHAR, HPGL_HCHAR,
       HPGL_VTIC, HPGL_HTIC, options_null, HPGL_init, HPGL_reset,
       HPGL_text, null_scale, HPGL_graphics, HPGL_move, HPGL_vector,
       HPGL_linetype, HPGL_put_text, HPGL_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef HPLJII
    ,{"hpljii", "HP Laserjet series II, [75 100 150 300]",
       HPLJII_75PPI_XMAX, HPLJII_75PPI_YMAX, HPLJII_75PPI_VCHAR,
       HPLJII_75PPI_HCHAR, HPLJII_75PPI_VTIC, HPLJII_75PPI_HTIC, HPLJIIoptions,
       HPLJIIinit, HPLJIIreset, HPLJIItext, null_scale,
       HPLJIIgraphics, HPLJIImove, HPLJIIvector, HPLJIIlinetype,
       HPLJIIput_text, HPLJIItext_angle, null_justify_text, line_and_point,
       do_arrow, set_font_null}
    ,{"hpdj", "HP DeskJet 500, [75 100 150 300]",
       HPLJII_75PPI_XMAX, HPLJII_75PPI_YMAX, HPLJII_75PPI_VCHAR,
       HPLJII_75PPI_HCHAR, HPLJII_75PPI_VTIC, HPLJII_75PPI_HTIC, HPLJIIoptions,
       HPLJIIinit, HPLJIIreset, HPDJtext, null_scale,
       HPDJgraphics, HPLJIImove, HPLJIIvector, HPLJIIlinetype,
       HPDJput_text, HPDJtext_angle, null_justify_text, line_and_point,
       do_arrow, set_font_null}
#endif

#ifdef HPPJ
    ,{"hppj", "HP PaintJet and HP3630 [FNT5X9 FNT9X17 FNT13X25]",
       HPPJ_XMAX, HPPJ_YMAX,
       HPPJ_9x17_VCHAR, HPPJ_9x17_HCHAR, HPPJ_9x17_VTIC, HPPJ_9x17_HTIC,
       HPPJoptions, HPPJinit, HPPJreset, HPPJtext, null_scale, HPPJgraphics,
       HPPJmove, HPPJvector, HPPJlinetype, HPPJput_text, HPPJtext_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef IMAGEN
    ,{"imagen", "Imagen laser printer",
       IMAGEN_XMAX, IMAGEN_YMAX, IMAGEN_VCHAR, IMAGEN_HCHAR,
       IMAGEN_VTIC, IMAGEN_HTIC, IMAGEN_options, IMAGEN_init, IMAGEN_reset,
       IMAGEN_text, IMAGEN_scale, IMAGEN_graphics, IMAGEN_move,
       IMAGEN_vector, IMAGEN_linetype, IMAGEN_put_text, IMAGEN_text_angle,
       IMAGEN_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef IRIS4D
    ,{"iris4d", "Silicon Graphics IRIS 4D Series Computer",
       IRIS4D_XMAX, IRIS4D_YMAX, IRIS4D_VCHAR, IRIS4D_HCHAR,
       IRIS4D_VTIC, IRIS4D_HTIC, IRIS4D_options, IRIS4D_init, IRIS4D_reset,
       IRIS4D_text, null_scale, IRIS4D_graphics, IRIS4D_move, IRIS4D_vector,
       IRIS4D_linetype, IRIS4D_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef KERMIT
    ,{"kc_tek40xx", "MS-DOS Kermit Tek4010 terminal emulator - color",
       TEK40XMAX,TEK40YMAX,TEK40VCHAR, KTEK40HCHAR,
       TEK40VTIC, TEK40HTIC, options_null, TEK40init, KTEK40reset,
       KTEK40Ctext, null_scale, KTEK40graphics, TEK40move, TEK40vector,
       KTEK40Clinetype, TEK40put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
    ,{"km_tek40xx", "MS-DOS Kermit Tek4010 terminal emulator - monochrome",
       TEK40XMAX,TEK40YMAX,TEK40VCHAR, KTEK40HCHAR,
       TEK40VTIC, TEK40HTIC, options_null, TEK40init, KTEK40reset,
       TEK40text, null_scale, KTEK40graphics, TEK40move, TEK40vector,
       KTEK40Mlinetype, TEK40put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef LATEX
    ,{"latex", "LaTeX picture environment",
       LATEX_XMAX, LATEX_YMAX, LATEX_VCHAR, LATEX_HCHAR,
       LATEX_VTIC, LATEX_HTIC, LATEX_options, LATEX_init, LATEX_reset,
       LATEX_text, null_scale, LATEX_graphics, LATEX_move, LATEX_vector,
       LATEX_linetype, LATEX_put_text, LATEX_text_angle,
       LATEX_justify_text, LATEX_point, LATEX_arrow, set_font_null}
#endif

#ifdef LINUX
#include "linux.trm"
#endif

#ifdef LN03P
     ,{"ln03", "LN03-plus laser printer in tektronix (EGM) mode",
    LN03PXMAX, LN03PYMAX, LN03PVCHAR, LN03PHCHAR,
    LN03PVTIC, LN03PHTIC, options_null, LN03Pinit, LN03Preset,
    LN03Ptext, null_scale, TEK40graphics, LN03Pmove, LN03Pvector,
    LN03Plinetype, LN03Pput_text, null_text_angle,
    null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef MF
    ,{"mf", "Metafont plotting standard",
       MF_XMAX, MF_YMAX, MF_VCHAR, MF_HCHAR,
       MF_VTIC, MF_HTIC, options_null, MF_init, MF_reset,
       MF_text, null_scale, MF_graphics, MF_move, MF_vector,
       MF_linetype, MF_put_text, MF_text_angle,
       MF_justify_text, line_and_point, MF_arrow, set_font_null}
#endif

#ifdef MGR
    ,{"mgr", "Mgr window system",
    /* dimensions nominal, replaced during MGR_graphics call */
       MGR_XMAX, MGR_YMAX, MGR_VCHAR, MGR_HCHAR,
       MGR_VTIC, MGR_HTIC, options_null, MGR_init, MGR_reset,
       MGR_text, null_scale, MGR_graphics, MGR_move, MGR_vector,
       MGR_linetype, MGR_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef MIF
    ,{"mif", "Frame maker MIF 3.00 format",
          MIF_XMAX, MIF_YMAX, MIF_VCHAR, MIF_HCHAR,
        MIF_VTIC, MIF_HTIC, MIF_options, MIF_init, MIF_reset,
       MIF_text, null_scale, MIF_graphics, MIF_move, MIF_vector,
       MIF_linetype, MIF_put_text, MIF_text_angle,
       MIF_justify_text, MIF_point, do_arrow, set_font_null}
#endif

#ifdef NEC
    ,{"nec_cp6", "NEC printer CP6, Epson LQ-800 [monocrome color draft]",
       NECXMAX, NECYMAX, NECVCHAR, NECHCHAR,
       NECVTIC, NECHTIC, NECoptions, NECinit, NECreset,
       NECtext, null_scale, NECgraphics, NECmove, NECvector,
       NEClinetype, NECput_text, NEC_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef ONEXT
    ,{"onext", "Original next single window terminal",
       ONEXT_XMAX, ONEXT_YMAX, ONEXT_VCHAR, ONEXT_HCHAR,
       ONEXT_VTIC, ONEXT_HTIC, ONEXT_options, ONEXT_init, ONEXT_reset,
       ONEXT_text, null_scale, ONEXT_graphics, ONEXT_move, ONEXT_vector,
       ONEXT_linetype, ONEXT_put_text, ONEXT_text_angle,
       ONEXT_justify_text, ONEXT_point, do_arrow, set_font_null}
#endif /* The PostScript driver with NXImage displaying the PostScript on screen */

#ifdef NEXT
#include "next.trm"
#endif

#ifdef OKIDATA
    ,{"okidata", "OKIDATA 320/321 Standard",
       EPS60XMAX, EPS60YMAX, EPSONVCHAR, EPSONHCHAR,
       EPSONVTIC, EPSONHTIC, options_null, EPSONinit, EPSONreset,
       OKIDATAtext, null_scale, EPS60graphics, EPSONmove, EPSONvector,
       EPSONlinetype, EPSONput_text, EPSON_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef OS2PM
#include "pm.trm"
#endif

#ifdef PBM
    ,{"pbm", "Portable bitmap [small medium large] [monochrome gray color]",
       PBM_XMAX, PBM_YMAX, PBM_VCHAR,
       PBM_HCHAR, PBM_VTIC, PBM_HTIC, PBMoptions,
       PBMinit, PBMreset, PBMtext, null_scale,
       PBMgraphics, PBMmove, PBMvector, PBMlinetype,
       PBMput_text, PBMtext_angle, null_justify_text, PBMpoint,
       do_arrow, set_font_null}
#endif

#ifdef PCL
 ,{"pcl5", "HP LaserJet III [mode] [font] [point]",
   PCL_XMAX, PCL_YMAX, HPGL2_VCHAR, HPGL2_HCHAR,
   PCL_VTIC, PCL_HTIC, PCL_options, PCL_init, PCL_reset,
   PCL_text, null_scale, PCL_graphics, HPGL2_move, HPGL2_vector,
   HPGL2_linetype, HPGL2_put_text, HPGL2_text_angle,
   HPGL2_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef POSTSCRIPT

#include "post.trm" /* post */

# ifdef PSLATEX
# include "pslatex.trm"
# endif

#ifdef PSTEX
    ,{"pstex", "Generic TeX with PostScript \\specials",
    PSTEX_PS_XMAX, PSTEX_PS_YMAX, PSTEX_VCHAR, PSTEX_HCHAR,
    PSTEX_PS_VTIC, PSTEX_PS_HTIC, PSTEX_options, PSTEX_init, PSTEX_reset,
    PSTEX_text, PSTEX_scale, PSTEX_graphics, PS_move, PS_vector,
    PS_linetype, PSTEX_put_text, PSTEX_text_angle,
    PSTEX_justify_text, PS_point, do_arrow, PS_set_font}
#endif

#endif    /* POSTSCRIPT */

#ifdef GRASS              /* GRASS (geographic info system) monitor */
#include "term/grass.trm"
#endif /* GRASS */

#ifdef PRESCRIBE
    ,{"prescribe", "Prescribe - for the Kyocera Laser Printer",
    PRE_XMAX, PRE_YMAX, PRE_VCHAR, PRE_HCHAR,
    PRE_VTIC, PRE_HTIC, options_null, PRE_init, PRE_reset,
    PRE_text, null_scale, PRE_graphics, PRE_move, PRE_vector,
    PRE_linetype, PRE_put_text, null_text_angle,
    PRE_justify_text, line_and_point, do_arrow, set_font_null}
    ,{"kyo", "Kyocera Laser Printer with Courier font",
    PRE_XMAX, PRE_YMAX, KYO_VCHAR, KYO_HCHAR,
    PRE_VTIC, PRE_HTIC, options_null, KYO_init, PRE_reset,
    PRE_text, null_scale, PRE_graphics, PRE_move, PRE_vector,
    PRE_linetype, PRE_put_text, null_text_angle,
    PRE_justify_text, line_and_point, do_arrow, set_font_null}
#endif /* PRESCRIBE */

#ifdef    PSTRICKS
    ,{"pstricks", "LaTeX picture environment with PSTricks macros",
       PSTRICKS_XMAX, PSTRICKS_YMAX, PSTRICKS_VCHAR, PSTRICKS_HCHAR,
       PSTRICKS_VTIC, PSTRICKS_HTIC, PSTRICKS_options, PSTRICKS_init, PSTRICKS_reset,
       PSTRICKS_text, PSTRICKS_scale, PSTRICKS_graphics, PSTRICKS_move, PSTRICKS_vector,
       PSTRICKS_linetype, PSTRICKS_put_text, PSTRICKS_text_angle,
       PSTRICKS_justify_text, PSTRICKS_point, PSTRICKS_arrow, set_font_null}
#endif

#ifdef QMS
    ,{"qms", "QMS/QUIC Laser printer (also Talaris 1200 and others)",
       QMS_XMAX,QMS_YMAX, QMS_VCHAR, QMS_HCHAR,
       QMS_VTIC, QMS_HTIC, options_null, QMS_init,QMS_reset,
       QMS_text, null_scale, QMS_graphics, QMS_move, QMS_vector,
       QMS_linetype,QMS_put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef REGIS
#include "regis.trm"
#endif

#ifdef RGIP
    ,{"rgip", "RGIP metafile (Uniplex). Option: fontsize (1-8)",
       RGIP_XMAX, RGIP_YMAX, RGIP_VCHAR, RGIP_HCHAR,
       RGIP_VTIC, RGIP_HTIC, RGIP_options, RGIP_init, RGIP_reset,
       RGIP_text, null_scale, RGIP_graphics, RGIP_move,
       RGIP_vector, RGIP_linetype, RGIP_put_text, RGIP_text_angle,
       RGIP_justify_text, RGIP_do_point, do_arrow, set_font_null}
    ,{"uniplex", "RGIP metafile (Uniplex). Option: fontsize (1-8)",
       RGIP_XMAX, RGIP_YMAX, RGIP_VCHAR, RGIP_HCHAR,
       RGIP_VTIC, RGIP_HTIC, RGIP_options, RGIP_init, RGIP_reset,
       RGIP_text, null_scale, RGIP_graphics, RGIP_move,
       RGIP_vector, RGIP_linetype, RGIP_put_text, RGIP_text_angle,
       RGIP_justify_text, RGIP_do_point, do_arrow, set_font_null}
#endif

#ifdef SELANAR
    ,{"selanar", "Selanar",
       TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR,
       TEK40VTIC, TEK40HTIC, options_null, SEL_init, SEL_reset,
       SEL_text, null_scale, SEL_graphics, TEK40move, TEK40vector,
       TEK40linetype, TEK40put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef STARC
    ,{"starc", "Star Color Printer",
       STARCXMAX, STARCYMAX, STARCVCHAR, STARCHCHAR,
       STARCVTIC, STARCHTIC, options_null, STARCinit, STARCreset,
       STARCtext, null_scale, STARCgraphics, STARCmove, STARCvector,
       STARClinetype, STARCput_text, STARC_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef SUN
    ,{"sun", "SunView window system",
       SUN_XMAX, SUN_YMAX, SUN_VCHAR, SUN_HCHAR,
       SUN_VTIC, SUN_HTIC, options_null, SUN_init, SUN_reset,
       SUN_text, null_scale, SUN_graphics, SUN_move, SUN_vector,
       SUN_linetype, SUN_put_text, null_text_angle,
       SUN_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef VWS
    ,{"VWS", "VAX Windowing System (UIS)",
           VWS_XMAX, VWS_YMAX, VWS_VCHAR, VWS_HCHAR,
           VWS_VTIC, VWS_HTIC, options_null, VWS_init, VWS_reset,
           VWS_text, null_scale, VWS_graphics, VWS_move, VWS_vector,
           VWS_linetype, VWS_put_text, VWS_text_angle,
           VWS_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef TANDY60
    ,{"tandy_60dpi", "Tandy DMP-130 series 60-dot per inch graphics",
       EPS60XMAX, EPS60YMAX, EPSONVCHAR, EPSONHCHAR,
       EPSONVTIC, EPSONHTIC, options_null, EPSONinit, EPSONreset,
       TANDY60text, null_scale, EPS60graphics, EPSONmove, EPSONvector,
       EPSONlinetype, EPSONput_text, EPSON_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef T410X
    ,{"tek410x", "Tektronix 4106, 4107, 4109 and 420X terminals",
       T410XXMAX, T410XYMAX, T410XVCHAR, T410XHCHAR,
       T410XVTIC, T410XHTIC, options_null, T410X_init, T410X_reset,
       T410X_text, null_scale, T410X_graphics, T410X_move, T410X_vector,
       T410X_linetype, T410X_put_text, T410X_text_angle,
       null_justify_text, T410X_point, do_arrow, set_font_null}
#endif

#ifdef TEK
#ifndef CTEK
    ,{"tek40xx", "Tektronix 4010 and others; most TEK emulators",
       TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR,
       TEK40VTIC, TEK40HTIC, options_null, TEK40init, TEK40reset,
       TEK40text, null_scale, TEK40graphics, TEK40move, TEK40vector,
       TEK40linetype, TEK40put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#else
    ,{"tek40xx","Tektronix 4010 and others; most TEK emulators",
    TEK40XMAX, TEK40YMAX, TEK40VCHAR, TEK40HCHAR,
    TEK40VTIC, TEK40HTIC, options_null, TEK40init, TEK40reset,
    TEK40text, null_scale, TEK40graphics, CTEK_move, CTEK_vector,
    CTEK_linetype, TEK40put_text, null_text_angle,
    null_justify_text, line_and_point, do_arrow, set_font_null}
#endif
#endif


#ifdef TEXDRAW
    ,{"texdraw", "LaTeX texdraw environment",
       TEXDRAW_XMAX, TEXDRAW_YMAX, TEXDRAW_VCHAR, TEXDRAW_HCHAR,
    TEXDRAW_VTIC, TEXDRAW_HTIC, options_null, TEXDRAW_init, TEXDRAW_reset,
    TEXDRAW_text, null_scale, TEXDRAW_graphics, TEXDRAW_move, TEXDRAW_vector,
    TEXDRAW_linetype, TEXDRAW_put_text, TEXDRAW_text_angle,
    TEXDRAW_justify_text, TEXDRAW_point, TEXDRAW_arrow, set_font_null}
#endif

#ifdef TGIF
#include "tgif.trm"
#endif

#ifdef TPIC
    ,{"tpic", "TPIC -- LaTeX picture environment with tpic \\specials",
       TPIC_XMAX, TPIC_YMAX, TPIC_VCHAR, TPIC_HCHAR,
       TPIC_VTIC, TPIC_HTIC, TPIC_options, TPIC_init, TPIC_reset,
       TPIC_text, null_scale, TPIC_graphics, TPIC_move, TPIC_vector,
       TPIC_linetype, TPIC_put_text, TPIC_text_angle,
       TPIC_justify_text, TPIC_point, TPIC_arrow, set_font_null}
#endif

#ifdef UNIXPLOT
#ifdef GNUGRAPH
    ,{"unixplot", "GNU plot(1) format [\042fontname\042 font_size]",
       UP_XMAX, UP_YMAX, UP_VCHAR, UP_HCHAR,
       UP_VTIC, UP_HTIC, UP_options, UP_init, UP_reset,
       UP_text, null_scale, UP_graphics, UP_move, UP_vector,
       UP_linetype, UP_put_text, UP_text_angle,
       UP_justify_text, line_and_point, do_arrow, set_font_null}
#else
    ,{"unixplot", "Unix plotting standard (see plot(1))",
       UP_XMAX, UP_YMAX, UP_VCHAR, UP_HCHAR,
       UP_VTIC, UP_HTIC, options_null, UP_init, UP_reset,
       UP_text, null_scale, UP_graphics, UP_move, UP_vector,
       UP_linetype, UP_put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif /* GNUGRAPH */
#endif

#ifdef UNIXPC
    ,{"unixpc", "AT&T 3b1 or AT&T 7300 Unix PC",
       uPC_XMAX, uPC_YMAX, uPC_VCHAR, uPC_HCHAR,
       uPC_VTIC, uPC_HTIC, options_null, uPC_init, uPC_reset,
       uPC_text, null_scale, uPC_graphics, uPC_move, uPC_vector,
       uPC_linetype, uPC_put_text, uPC_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#if 0
#ifdef EMXVGA
#ifdef EMXVESA
    ,{"vesa", "IBM PC/Clone with VESA SVGA graphics board [vesa mode]",
       EMXVGA_XMAX, EMXVGA_YMAX, EMXVGA_VCHAR, EMXVGA_HCHAR,
       EMXVGA_VTIC, EMXVGA_HTIC, EMXVESA_options, EMXVESA_init, EMXVESA_reset,
       EMXVESA_text, null_scale, EMXVESA_graphics, EMXVGA_move, EMXVGA_vector,
       EMXVGA_linetype, EMXVGA_put_text, EMXVGA_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif
    ,{"vgal", "IBM PC/Clone with VGA graphics board",
       EMXVGA_XMAX, EMXVGA_YMAX, EMXVGA_VCHAR, EMXVGA_HCHAR,
       EMXVGA_VTIC, EMXVGA_HTIC, options_null, EMXVGA_init, EMXVGA_reset,
       EMXVGA_text, null_scale, EMXVGA_graphics, EMXVGA_move, EMXVGA_vector,
       EMXVGA_linetype, EMXVGA_put_text, EMXVGA_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif
#endif

#ifdef EMXVGA
    ,{"emxvga", "PC with SuperVGA running DOS or OS/2",
           EMXVGA_XMAX, EMXVGA_YMAX, EMXVGA_VCHAR, EMXVGA_HCHAR,
           EMXVGA_VTIC, EMXVGA_HTIC, options_null, EMXVGA_init, EMXVGA_reset,
           EMXVGA_text, null_scale, EMXVGA_graphics, EMXVGA_move,
       EMXVGA_vector, EMXVGA_linetype, EMXVGA_put_text, EMXVGA_text_angle,
           null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef V384
    ,{"vx384", "Vectrix 384 and Tandy color printer",
       V384_XMAX, V384_YMAX, V384_VCHAR, V384_HCHAR,
       V384_VTIC, V384_HTIC, options_null, V384_init, V384_reset,
       V384_text, null_scale, V384_graphics, V384_move, V384_vector,
       V384_linetype, V384_put_text, null_text_angle,
       null_justify_text, do_point, do_arrow, set_font_null}
#endif

#ifdef VTTEK
    ,{"vttek", "VT-like tek40xx terminal emulator",
       TEK40XMAX,TEK40YMAX,TEK40VCHAR, TEK40HCHAR,
       TEK40VTIC, TEK40HTIC, options_null, VTTEK40init, VTTEK40reset,
       TEK40text, null_scale, TEK40graphics, TEK40move, TEK40vector,
       VTTEK40linetype, VTTEK40put_text, null_text_angle,
       null_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#ifdef _Windows
    ,{"windows", "Microsoft Windows",
       WIN_XMAX, WIN_YMAX, WIN_VCHAR, WIN_HCHAR,
       WIN_VTIC, WIN_HTIC, WIN_options, WIN_init, WIN_reset,
       WIN_text, null_scale, WIN_graphics, WIN_move, WIN_vector,
       WIN_linetype, WIN_put_text, WIN_text_angle,
       WIN_justify_text, WIN_point, do_arrow, set_font_null}
#endif

#ifdef X11
#include "x11.trm"
   ,{"xlib", "X11 Window System (gnulib_x11 dump)",
       Xlib_XMAX, Xlib_YMAX, Xlib_VCHAR, Xlib_HCHAR,
       Xlib_VTIC, Xlib_HTIC, options_null, Xlib_init, Xlib_reset,
       Xlib_text, null_scale, Xlib_graphics, Xlib_move, Xlib_vector,
       Xlib_linetype, Xlib_put_text, null_text_angle,
       Xlib_justify_text, line_and_point, do_arrow, set_font_null}
#endif

#endif /* OLD_TERMINALS */

};

#define TERMCOUNT (sizeof(term_tbl)/sizeof(struct termentry))


void list_terms()
{
register int i;

    fprintf(stderr,"\nAvailable terminal types:\n");
    for (i = 0; i < TERMCOUNT; i++)
        fprintf(stderr,"  %15s  %s\n",
               term_tbl[i].name, term_tbl[i].description);
    (void) putc('\n',stderr);
}


/* set_term: get terminal number from name on command line */
/* will change 'term' variable if successful */
struct termentry *
set_term(c_token)
int c_token;
{
    register struct termentry *t=NULL;
    char *input_name;

    if (!token[c_token].is_token)
     int_error("terminal name expected",c_token);
    input_name = input_line + token[c_token].start_index;
    t = change_term(input_name, token[c_token].length);
    if (!t)
     int_error("unknown or ambiguous terminal type; type just 'set terminal' for a list",
             c_token);

    /* otherwise the type was changed */

    return(t);
}

/* change_term: get terminal number from name and set terminal type */
/* returns -1 if unknown, -2 if ambiguous, >=0 is terminal number */
struct termentry *
change_term(name, length)
    char *name;
    int length;
{
    int i;
    struct termentry *t=NULL;

    for (i = 0; i < TERMCOUNT; i++) {
       if (!strncmp(name,term_tbl[i].name,length)) {
          if (t)
            return(NULL);    /* ambiguous */
          t = term_tbl+i;
       }
    }

    if (!t)            /* unknown */
     return(NULL);

    /* Success: set terminal type now */

    term = t;
    term_init = FALSE;
    name = term->name;

    if (term->scale != null_scale)
        fprintf(stderr, "Warning : scale interface is not null_scale - may not work with multiplot\n");

    /* check that optional fields are initialised to something */
    if (term->text_angle==0)
        term->text_angle = null_text_angle;
    if (term->justify_text==0)
        term->justify_text=null_justify_text;
    if (term->point==0)
        term->point = do_point;
    if (term->arrow==0)
        term->arrow = do_arrow;
    if (term->set_font==0)
        term->set_font = set_font_null;
    if (term->set_pointsize==0)
        term->set_pointsize = null_set_pointsize;

    /* Special handling for unixplot term type */
    if (!strncmp("unixplot",name,8)) {
       UP_redirect (2);  /* Redirect actual stdout for unixplots */
    } else if (unixplot) {
       UP_redirect (3);  /* Put stdout back together again. */
    }

    if (interactive)
     fprintf(stderr, "Terminal type set to '%s'\n", name);

    return(t);
}

/*
   Routine to detect what terminal is being used (or do anything else
   that would be nice).  One anticipated (or allowed for) side effect
   is that the global ``term'' may be set.
   The environment variable GNUTERM is checked first; if that does
   not exist, then the terminal hardware is checked, if possible,
   and finally, we can check $TERM for some kinds of terminals.
   A default can be set with -DDEFAULTTERM=myterm in the Makefile
   or #define DEFAULTTERM myterm in term.h
*/
/* thanks to osupyr!alden (Dave Alden) for the original GNUTERM code */
void init_terminal()
{
    struct termentry *t;
#ifdef DEFAULTTERM
    char *term_name = DEFAULTTERM;
#else
    char *term_name = NULL;
#endif /* DEFAULTTERM */
#if (defined(__TURBOC__) && defined(MSDOS) && !defined(_Windows)) || defined(NEXT) || defined(SUN) || defined(X11)
    char *term = NULL;        /* from TERM environment var */
#endif
#ifdef X11
    char *display = NULL;
#endif
    char *gnuterm = NULL;

    /* GNUTERM environment variable is primary */
    gnuterm = getenv("GNUTERM");
    if (gnuterm != (char *)NULL) {
     term_name = gnuterm;
    }
    else {

#ifdef __ZTC__
      term_name = ztc_init();
#endif

#ifdef vms
       term_name = vms_init();
#endif

#ifdef ONEXT
    term = getenv("TERM");
    if (term_name == (char *)NULL
        && term != (char *)NULL && strcmp(term,"onext") == 0)
          term_name = "onext";
#endif /* ONeXT */

#ifdef SUN
       term = getenv("TERM");    /* try $TERM */
       if (term_name == (char *)NULL
          && term != (char *)NULL && strcmp(term, "sun") == 0)
        term_name = "sun";
#endif /* sun */

#ifdef _Windows
        term_name = "win";
#endif /* _Windows */

#ifdef GPR
   if (gpr_isa_pad()) term_name = "gpr";       /* find out whether stdout is a DM pad. See term/gpr.trm */
#else
#ifdef APOLLO
   if (apollo_isa_pad()) term_name = "apollo"; /* find out whether stdout is a DM pad. See term/apollo.trm */
#endif /* APOLLO */
#endif /* GPR    */

#ifdef X11
       term = getenv("TERM");    /* try $TERM */
       if (term_name == (char *)NULL
          && term != (char *)NULL && strcmp(term, "xterm") == 0)
        term_name = "x11";
       display = getenv("DISPLAY");
       if (term_name == (char *)NULL && display != (char *)NULL)
        term_name = "x11";
       if (X11_Display)
        term_name = "x11";
#endif /* x11 */

#ifdef AMIGASCREEN
       term_name = "amiga";
#endif

#if defined(ATARI) || defined(MTOS)
       term_name = "atari";
#endif

#ifdef UNIXPC
           if (iswind() == 0) {
              term_name = "unixpc";
           }
#endif /* unixpc */

#ifdef CGI
       if (getenv("CGIDISP") || getenv("CGIPRNT"))
         term_name = "cgi";
#endif /*CGI */

#if defined(MSDOS) && defined(__EMX__)
#ifdef EMXVESA
       term_name = "vesa";
#else
       term_name = "vgal";
#endif
#endif

#ifdef DJGPP
        term_name = "svga";
#endif

#ifdef GRASS
        term_name = "grass";
#endif

#ifdef OS2
           term_name = "pm" ;
            /* EMX compiler has getcwd that can return drive */
           PM_init() ;
#endif /*OS2 */

/* set linux terminal only if LINUX_setup was successfull, if we are on X11
   LINUX_setup has failed, also if we are logged in by network */
#ifdef LINUX
       if(LINUX_graphics_allowed)
         term_name = "linux";
#endif /* LINUX */
    }

    /* We have a name, try to set term type */
    if (term_name != NULL && *term_name != '\0') {
       t = change_term(term_name, (int)strlen(term_name));
       if (!t)
        fprintf(stderr, "Unknown or ambiguous terminal name '%s'\n", term_name);
       else                /* successful */
        ;
    }
}


#if defined(__ZTC__)
char *
ztc_init()
{
  int g_mode;
  char *term_name = NULL;

    g_mode = fg_init();

          switch (g_mode){
            case FG_NULL      :  fprintf(stderr,"Graphics card not detected or not supported.\n");
                                 exit(1);
            case FG_HERCFULL  :  term_name = "hercules";
                                 break;
            case FG_EGAMONO   :  term_name = "egamono";
                                 break;
            case FG_EGAECD      :  term_name = "egalib";
                                 break;
            case FG_VGA11      :  term_name = "vgamono";
                                 break;
            case FG_VGA12      :  term_name = "vgalib";
                                 break;
            case FG_VESA6A      :  term_name = "svgalib";
                                 break;
            case FG_VESA5      :  term_name = "ssvgalib";
                                 break;
            }
        fg_term();
  return(term_name);
}
#endif /* __ZTC__ */


/*
    This is always defined so we don't have to have command.c know if it
    is there or not.
*/
#ifndef UNIXPLOT
void UP_redirect(caller) int caller;
{
    caller = caller;    /* to stop Turbo C complaining
                         * about caller not being used */
}
#else
void UP_redirect (caller)
int caller;
/*
    Unixplot can't really write to outfile--it wants to write to stdout.
    This is normally ok, but the original design of gnuplot gives us
    little choice.  Originally users of unixplot had to anticipate
    their needs and redirect all I/O to a file...  Not very gnuplot-like.

    caller:  1 - called from SET OUTPUT "FOO.OUT"
             2 - called from SET TERM UNIXPLOT
             3 - called from SET TERM other
             4 - called from SET OUTPUT
*/
{
    switch (caller) {
    case 1:
    /* Don't save, just replace stdout w/outfile (save was already done). */
        if (unixplot)
            *(stdout) = *(outfile);  /* Copy FILE structure */
    break;
    case 2:
        if (!unixplot) {
            fflush(stdout);
            save_stdout = *(stdout);
            *(stdout) = *(outfile);  /* Copy FILE structure */
            unixplot = 1;
        }
    break;
    case 3:
    /* New terminal in use--put stdout back to original. */
        /* closepl(); */  /* This is called by the term. */
        fflush(stdout);
        *(stdout) = save_stdout;  /* Copy FILE structure */
        unixplot = 0;
    break;
    case 4:
    /*  User really wants to go to normal output... */
        if (unixplot) {
            fflush(stdout);
            *(stdout) = save_stdout;  /* Copy FILE structure */
        }
    break;
    }
}
#endif


/* test terminal by drawing border and text */
/* called from command test */
void test_term()
{
    register struct termentry *t = term;
    char *str;
    int x,y, xl,yl, i;
    unsigned int xmax, ymax;
    char label[MAX_ID_LEN];
    int scaling;
    int key_entry_height;
    int p_width;

    if (!term_init) {
       (*t->init)();
       term_init = TRUE;
    }
    screen_ok = FALSE;
    scaling = (*t->scale)(xsize, ysize);
    xmax = (unsigned int)(t->xmax * (scaling ? 1 : xsize));
    ymax = (unsigned int)(t->ymax * (scaling ? 1 : ysize));
    (*t->graphics)();

    p_width = pointsize * (t->h_tic);
    key_entry_height = pointsize * (t->v_tic) * 1.25;
    if (key_entry_height < (t->v_char) )
        key_entry_height = (t->v_char);

    /* border linetype */
    (*t->linetype)(-2);
    (*t->move)(0,0);
    (*t->vector)(xmax-1,0);
    (*t->vector)(xmax-1,ymax-1);
    (*t->vector)(0,ymax-1);
    (*t->vector)(0,0);
    (void) (*t->justify_text)(LEFT);
    (*t->put_text)(t->h_char*5,ymax-t->v_char*3,"Terminal Test");
    /* axis linetype */
    (*t->linetype)(-1);
    (*t->move)(xmax/2,0);
    (*t->vector)(xmax/2,ymax-1);
    (*t->move)(0,ymax/2);
    (*t->vector)(xmax-1,ymax/2);
    /* test width and height of characters */
    (*t->linetype)(-2);
    (*t->move)(  xmax/2-t->h_char*10,ymax/2+t->v_char/2);
    (*t->vector)(xmax/2+t->h_char*10,ymax/2+t->v_char/2);
    (*t->vector)(xmax/2+t->h_char*10,ymax/2-t->v_char/2);
    (*t->vector)(xmax/2-t->h_char*10,ymax/2-t->v_char/2);
    (*t->vector)(xmax/2-t->h_char*10,ymax/2+t->v_char/2);
    (*t->put_text)(xmax/2-t->h_char*10,ymax/2,
        "12345678901234567890");
    /* test justification */
    (void) (*t->justify_text)(LEFT);
    (*t->put_text)(xmax/2,ymax/2+t->v_char*6,"left justified");
    str = "centre+d text";
    if ((*t->justify_text)(CENTRE))
        (*t->put_text)(xmax/2,
                ymax/2+t->v_char*5,str);
    else
        (*t->put_text)(xmax/2-strlen(str)*t->h_char/2,
                ymax/2+t->v_char*5,str);
    str = "right justified";
    if ((*t->justify_text)(RIGHT))
        (*t->put_text)(xmax/2,
                ymax/2+t->v_char*4,str);
    else
        (*t->put_text)(xmax/2-strlen(str)*t->h_char,
                ymax/2+t->v_char*4,str);
    /* test text angle */
    str = "rotated ce+ntred text";
    if ((*t->text_angle)(1)) {
        if ((*t->justify_text)(CENTRE))
            (*t->put_text)(t->v_char,
                ymax/2,str);
        else
            (*t->put_text)(t->v_char,
                ymax/2-strlen(str)*t->h_char/2,str);
    }
    else {
        (void) (*t->justify_text)(LEFT);
        (*t->put_text)(t->h_char*2,ymax/2-t->v_char*2,"Can't rotate text");
    }
    (void) (*t->justify_text)(LEFT);
    (void) (*t->text_angle)(0);
    /* test tic size */
    (*t->move)( (unsigned int) (xmax/2+t->h_tic*(1+ticscale)) ,0U);
    (*t->vector)( (unsigned int)(xmax/2+t->h_tic*(1+ticscale)),(unsigned int)(ticscale*t->v_tic));
    (*t->move)((unsigned int)(xmax/2),(unsigned int)(t->v_tic*(1+ticscale)));
    (*t->vector)((unsigned int)(xmax/2+ticscale*t->h_tic),(unsigned int)(t->v_tic*(1+ticscale)));
    (*t->put_text)((unsigned int)(xmax/2-10*t->h_char), (unsigned int)(t->v_tic*2+t->v_char/2),"test tics");
    /* test line and point types */
    x = xmax - t->h_char*6 - p_width;
    y = ymax - key_entry_height;
    for ( i = -2; y > key_entry_height; i++ ) {
        (*t->linetype)(i);
        /*    (void) sprintf(label,"%d",i);  Jorgen Lippert
        [e-mail] */
        (void) sprintf(label,"%d",i+1);
        if ((*t->justify_text)(RIGHT))
            (*t->put_text)(x,y,label);
        else
            (*t->put_text)(x-strlen(label)*t->h_char,y,label);
        (*t->move)(x+t->h_char,y);
        (*t->vector)(x+t->h_char*4,y);
        if ( i >= -1 )
            (*t->point)(x+t->h_char*5+p_width/2,y,i);
        y -= key_entry_height;
    }
    /* test some arrows */
    (*t->linetype)(0);
    x = xmax/4;
    y = ymax/4;
    xl = t->h_tic*5;
    yl = t->v_tic*5;
    (*t->arrow)(x,y,x+xl,y,TRUE);
    (*t->arrow)(x,y,x+xl/2,y+yl,TRUE);
    (*t->arrow)(x,y,x,y+yl,TRUE);
    (*t->arrow)(x,y,x-xl/2,y+yl,FALSE);
    (*t->arrow)(x,y,x-xl,y,TRUE);
    (*t->arrow)(x,y,x-xl,y-yl,TRUE);
    (*t->arrow)(x,y,x,y-yl,TRUE);
    (*t->arrow)(x,y,x+xl,y-yl,TRUE);
    /* and back into text mode */
    (*t->text)();
}


#if defined(MSDOS)||defined(g)||defined(MTOS)||defined(OS2)||defined(_Windows)||defined(DOS386)
/* output for some terminal types must be binary to stop non Unix computers
   changing \n to \r\n.
   If the output is not STDOUT, the following code reopens outfile
   with binary mode. */
void
reopen_binary()
{
char filename[MAX_ID_LEN+1];

    if (outfile!=stdout) {
        (void) fclose(outfile);
        (void) strcpy(filename,outstr+1);    /* remove quotes */
        filename[strlen(filename)-1] = '\0';
#ifdef _Windows
        if ( !stricmp(outstr,"'PRN'") )
            (void) strcpy(filename,win_prntmp);    /* use temp file for windows */
#endif
        if ( (outfile = fopen(filename,"wb")) == (FILE *)NULL ) {
            if ( (outfile = fopen(filename,"w")) == (FILE *)NULL ) {
                os_error("cannot reopen file with binary type; output unknown",
                    NO_CARET);
            }
            else {
    os_error("cannot reopen file with binary type; output reset to ascii",
                    NO_CARET);
            }
        }
#if defined(__TURBOC__) && defined(MSDOS)
#ifndef _Windows
        if ( !stricmp(outstr,"'PRN'") )
        {
        /* Put the printer into binary mode. */
        union REGS regs;
            regs.h.ah = 0x44;    /* ioctl */
            regs.h.al = 0;        /* get device info */
            regs.x.bx = fileno(outfile);
            intdos(®s, ®s);
            regs.h.dl |= 0x20;    /* binary (no ^Z intervention) */
            regs.h.dh = 0;
            regs.h.ah = 0x44;    /* ioctl */
            regs.h.al = 1;        /* set device info */
            intdos(®s, ®s);
        }
#endif
#endif
    }
}
#endif

#ifdef vms
/* these are needed to modify terminal characteristics */
#include <descrip.h>
#include <iodef.h>
#include <ttdef.h>
#include <tt2def.h>
#include <dcdef.h>
#include <ssdef.h>
#include <stat.h>
#include <fab.h>
static unsigned short   chan;
static int  old_char_buf[3], cur_char_buf[3];
$DESCRIPTOR(sysoutput_desc,"SYS$OUTPUT");

char *vms_init()
/*
 *  Look first for decw$display (decterms do regis)
 *  Determine if we have a regis terminal
 * and save terminal characteristics
*/
{
   /* Save terminal characteristics in old_char_buf and
   initialise cur_char_buf to current settings. */
   int i;
   if (getenv("DECW$DISPLAY"))
       return("x11");
   sys$assign(&sysoutput_desc,&chan,0,0);
   sys$qiow(0,chan,IO$_SENSEMODE,0,0,0,old_char_buf,12,0,0,0,0);
   for (i = 0 ; i < 3 ; ++i) cur_char_buf[i] = old_char_buf[i];
   sys$dassgn(chan);

   /* Test if terminal is regis */
   if ((cur_char_buf[2] & TT2$M_REGIS) == TT2$M_REGIS) return("regis");
   return(NULL);
}

void
vms_reset()
/* set terminal to original state */
{
   int i;
   sys$assign(&sysoutput_desc,&chan,0,0);
   sys$qiow(0,chan,IO$_SETMODE,0,0,0,old_char_buf,12,0,0,0,0);
   for (i = 0 ; i < 3 ; ++i) cur_char_buf[i] = old_char_buf[i];
   sys$dassgn(chan);
}

void
term_mode_tek()
/* set terminal mode to tektronix */
{
   long status;
   if (outfile != stdout) return; /* don't modify if not stdout */
   sys$assign(&sysoutput_desc,&chan,0,0);
   cur_char_buf[0] = 0x004A0000 | DC$_TERM | (TT$_TEK401X<<8);
   cur_char_buf[1] = (cur_char_buf[1] & 0x00FFFFFF) | 0x18000000;

   cur_char_buf[1] &= ~TT$M_CRFILL;
   cur_char_buf[1] &= ~TT$M_ESCAPE;
   cur_char_buf[1] &= ~TT$M_HALFDUP;
   cur_char_buf[1] &= ~TT$M_LFFILL;
   cur_char_buf[1] &= ~TT$M_MECHFORM;
   cur_char_buf[1] &= ~TT$M_NOBRDCST;
   cur_char_buf[1] &= ~TT$M_NOECHO;
   cur_char_buf[1] &= ~TT$M_READSYNC;
   cur_char_buf[1] &= ~TT$M_REMOTE;
   cur_char_buf[1] |= TT$M_LOWER;
   cur_char_buf[1] |= TT$M_TTSYNC;
   cur_char_buf[1] |= TT$M_WRAP;
   cur_char_buf[1] &= ~TT$M_EIGHTBIT;
   cur_char_buf[1] &= ~TT$M_MECHTAB;
   cur_char_buf[1] &= ~TT$M_SCOPE;
   cur_char_buf[1] |= TT$M_HOSTSYNC;

   cur_char_buf[2] &= ~TT2$M_APP_KEYPAD;
   cur_char_buf[2] &= ~TT2$M_BLOCK;
   cur_char_buf[2] &= ~TT2$M_DECCRT3;
   cur_char_buf[2] &= ~TT2$M_LOCALECHO;
   cur_char_buf[2] &= ~TT2$M_PASTHRU;
   cur_char_buf[2] &= ~TT2$M_REGIS;
   cur_char_buf[2] &= ~TT2$M_SIXEL;
   cur_char_buf[2] |= TT2$M_BRDCSTMBX;
   cur_char_buf[2] |= TT2$M_EDITING;
   cur_char_buf[2] |= TT2$M_INSERT;
   cur_char_buf[2] |= TT2$M_PRINTER;
   cur_char_buf[2] &= ~TT2$M_ANSICRT;
   cur_char_buf[2] &= ~TT2$M_AVO;
   cur_char_buf[2] &= ~TT2$M_DECCRT;
   cur_char_buf[2] &= ~TT2$M_DECCRT2;
   cur_char_buf[2] &= ~TT2$M_DRCS;
   cur_char_buf[2] &= ~TT2$M_EDIT;
   cur_char_buf[2] |= TT2$M_FALLBACK;

   status = sys$qiow(0,chan,IO$_SETMODE,0,0,0,cur_char_buf,12,0,0,0,0);
   if (status == SS$_BADPARAM) {
      /* terminal fallback utility not installed on system */
      cur_char_buf[2] &= ~TT2$M_FALLBACK;
      sys$qiow(0,chan,IO$_SETMODE,0,0,0,cur_char_buf,12,0,0,0,0);
   }
   else {
      if (status != SS$_NORMAL)
         lib$signal(status,0,0);
   }
   sys$dassgn(chan);
}

void
term_mode_native()
/* set terminal mode back to native */
{
   int i;
   if (outfile != stdout) return; /* don't modify if not stdout */
   sys$assign(&sysoutput_desc,&chan,0,0);
   sys$qiow(0,chan,IO$_SETMODE,0,0,0,old_char_buf,12,0,0,0,0);
   for (i = 0 ; i < 3 ; ++i) cur_char_buf[i] = old_char_buf[i];
   sys$dassgn(chan);
}

void
term_pasthru()
/* set terminal mode pasthru */
{
   if (outfile != stdout) return; /* don't modify if not stdout */
   sys$assign(&sysoutput_desc,&chan,0,0);
   cur_char_buf[2] |= TT2$M_PASTHRU;
   sys$qiow(0,chan,IO$_SETMODE,0,0,0,cur_char_buf,12,0,0,0,0);
   sys$dassgn(chan);
}

void
term_nopasthru()
/* set terminal mode nopasthru */
{
   if (outfile != stdout) return; /* don't modify if not stdout */
   sys$assign(&sysoutput_desc,&chan,0,0);
   cur_char_buf[2] &= ~TT2$M_PASTHRU;
   sys$qiow(0,chan,IO$_SETMODE,0,0,0,cur_char_buf,12,0,0,0,0);
   sys$dassgn(chan);
}

void
reopen_binary()
/* close the file outfile outfile and reopen it with binary type
   if not already done or outfile == stdout */
{
   stat_t stat_buf;
   char filename[MAX_ID_LEN+1];
   if (outfile != stdout) { /* don't modify if not stdout */
      if (!fstat(fileno(outfile),&stat_buf)) {
         if (stat_buf.st_fab_rfm != FAB$C_FIX) {
            /* modify only if not already done */
            (void) fclose(outfile);
            (void) strcpy(filename,outstr+1);   /* remove quotes */
            filename[strlen(filename)-1] = '\0';
            (void) delete(filename);
            if ((outfile = fopen(filename,"wb","rfm=fix","bls=512","mrs=512"))
                == (FILE *)NULL ) {
               if ( (outfile = fopen(filename,"w")) == (FILE *)NULL ) {
                 os_error("cannot reopen file with binary type; output unknown",
                           NO_CARET);
               }
               else {
          os_error("cannot reopen file with binary type; output reset to ascii",
                           NO_CARET);
               }
            }
         }
      }
      else{
         os_error("cannot reopen file with binary type; output remains ascii",
                  NO_CARET);
      }
   }
}

void
fflush_binary()
{
   typedef short int INT16;     /* signed 16-bit integers */
   register INT16 k;            /* loop index */
   if (outfile != stdout) {
       /* Stupid VMS fflush() raises error and loses last data block
          unless it is full for a fixed-length record binary file.
          Pad it here with NULL characters. */
       for (k = (INT16)((*outfile)->_cnt); k > 0; --k)
          putc('\0',outfile);
       fflush(outfile);
   }
}
#endif